Option Explicit
'OҲAppEventCls
Public WithEvents myApp As Application
Private Sub myApp_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
    MsgBox Wb.Name & "" & Wn.Index & _
        "ӵwgOActive]ҥΡ^AFC by Application"
End Sub

'зǼҲ
Dim myAppCls As New AppEventCls
Sub InitializeAppEvent()
  Set myAppCls.myApp = Application
End Sub
